home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / doors_2 / twview91.zip / INITGRPH.INC < prev    next >
Text File  |  1992-03-11  |  483b  |  24 lines
  1.  
  2. procedure InitGraphics;
  3. var
  4.   grDriver : Integer;
  5.   grMode   : Integer;
  6.   ErrCode  : Integer;
  7. begin
  8.   if SVGA then
  9.     InitializeSpecialGraphics
  10.   else
  11.     begin
  12.       grDriver := Detect;
  13.       InitGraph(grDriver,grMode,'');
  14.       ErrCode := GraphResult;
  15.       if ErrCode <> grOk then
  16.         WriteLn('Graphics error:',
  17.                 GraphErrorMsg(ErrCode))
  18.       else
  19.         SetTextJustify( CenterText, CenterText );
  20.     end; {else}
  21. end; {InitGraphics}
  22.  
  23.  
  24.